5 IFA=0THENA=1:LOAD"ROUTI*",8,1
10 F(1)=15:F(2)=15:F(3)=11:F(4)=0:GA=8:GOSUB1303:PRINT"[147]"CHR$(8):POKE650,128
11 PRINT" [144]LOADING...":POKE652,5:POKE788,52:DIMT$(30)
12 SP$="GAXAR"
16 POKE53272,29:C=2:C$="PUBLICATION":GOSUB1303:PRINT"[147]"
17 POKE53269,0:OPEN2,8,2,"CONFIG*,S,R":INPUT#2,Q:FORG=1TOQ:INPUT#2,T$(G)
18 NEXT:CLOSE2:FORG=Q+1TO30:T$(G)="----------------":NEXT
19 X$="TEXTREADER":S$="5000":F%=1:GOSUB1103
100 V=20520:GOSUB1503:SYS49152,V,V+880,1024:POKE53265,27
110 SYS49152,V,V+880,1024:GOSUB1603
111 GETA$:IFPEEK(203)=64ANDPEEK(653)=0ANDA$=""THEN111
112 IFA$=""THENV=20520:GOTO110
113 IFPEEK(653)=2ORA$="[145]"THENIFV>20559THENV=V-40:GOTO110
114 IFA$=""ORA$=CHR$(32)THENIFV<EE-39THENV=V+40:GOTO110
115 IFA$=""THENIFV>EE-879THENV=EE:GOTO110
116 IFA$="[157]"THENIFV<21400THENV=20520:GOTO110
117 IFA$=""THENV=V+880:GOTO110
118 IFA$="[157]"THENV=V-880:GOTO110
119 IFA$="C"THEN150
120 IFA$="R"THENGOSUB152:GOTO111
121 IFPEEK(203)=63THEN200
122 IFA$=CHR$(13)THEN400
123 IF(PEEK(653)AND7)=7THENSYS64738
124 IFA$="D"THENPOKE53265,11:GOTO17
129 GOTO111
150 IFC=2THENPOKE53272,24:C=1:GOTO110
151 C=2:POKE53272,29:GOTO110
152 IFPEEK(650)=128THENPOKE650,0:RETURN
153 POKE650,128:RETURN
200 POKE53265,11:FORG=21TO0STEP-1:POKE781,G:SYS59903:NEXT
201 Z=PEEK(650):POKE650,0:POKE53272,29:POKE211,14:A=1
202 POKE214,1:SYS58732:PRINT"[216][217][218][219][217][216]SYSTEM":PRINTTAB(14)"[189][188][186][187][188][189] V8.1
204 [153]"  (null)VAL(null)(null)ASCRIGHT$(null)VAL    :WAIT "[170]F$:[153]"  ATN(null)(null).LENLEFT$ATN(null)(null)VAL(null) :WAIT "[170]C$
205 [153]"  (null)(null)(null)RIGHT$(null)VAL(null)VAL(null)   :WAIT ";SP$
206 [153]"  (null)VAL(null)(null)VAL(null)VALATN(null)   :WAIT ";:[139]Z[178]128[167][153]"ON ":[137]208
207 [153]"OFF"
208 [153]"  STR$VAL(null)RIGHT$LENVAL      :WAIT";[196](GA)
220 [151]53265,27:[151]211,1:[151]214,A[172]2[170]4:[158]58732:[153]"COSWAIT"
221 [146]198,1:[161]A$:[151]198,0:[139]A$[178][199](13)[167][145]A[137]300,260,270,250,280
222 [151]211,1:[151]214,A[172]2[170]4:[158]58732:[153]" ":[139]A$[178]"ON"[175]A[177]1[167]A[178]A[171]1
223 [139]A$[178]""[175]A[179]5[167]A[178]A[170]1
224 [139][194](203)[178]63[167]298
226 [137]220
250 [141]152:Z[178][194](650):[151]211,0:[151]214,11:[158]58732:[137]206
260 X%[178]16:Y%[178]8:L%[178]16:F%[178]0:[141]1703:C$[178]X$:S$[178]"2000":F%[178]0:[141]1103
261 [151]53265,11:[137]301
270 X%[178]16:Y%[178]10:L%[178]16:F%[178]0:[141]1703:SP$[178]X$:S$[178]"3800":F%[178]0:[141]1103
271 [137]261
280 [139]GA[178]8[167]GA[178]9:[137]282
281 GA[178]8
282 [151]211,0:[151]214,13:[158]58732:[137]208
298 [151]53265,11:[151]650,Z:[139]C[178]1[167][151]53272,24:[137]100
299 [151]53272,29:[137]100
300 X%[178]16:Y%[178]6:L%[178]16:F%[178]0:[141]1703:S$[178]"5000":F%[178]1:[141]1103:[151]53265,11
301 [141]1003:[137]200
400 [151]53265,11:[129]G[178]21[164]0[169][171]1:[151]781,G:[158]59903:[130]
401 Z[178][194](650):[151]650,0:[151]53272,29
402 [129]G[178]1[164]15:[151]211,3:[151]214,G[170]4:[158]58732:[153]T$(G):[130]
403 [129]G[178]30[164]16[169][171]1:[151]211,36[171][195](T$(G)):[151]214,G[171]11:[158]58732:[153]T$(G)
404 [130]:[151]211,7:[151]214,1:[158]58732
406 [153]"ATNPEEKLENSTR$VALASCCHR$LEFT$RIGHT$MID$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)":[153][163]7)"GETNEWTAB(TOINTSPC(THENNOTSTEP+<*/^-ORSTEP+ANDSGNINTABS"
410 [151]53265,27:A[178]1:Q[178]1
411 X$[178]"COSWAIT":G[178]A:[139]Q[178]38[167]G[178]G[171]15:X$[178]"LOGWAIT"
412 [151]211,Q:[151]214,G[170]4:[158]58732:[153]X$:[146]198,1:[161]A$:[151]198,0
413 [139]A$[178][199](13)[167]425
414 [151]211,Q:[151]214,G[170]4:[158]58732:[153]" "
415 [139](A$[178]""[176]A$[178]"CMD")[175]Q[178]1[167]Q[178]38:A[178]A[170]15:[137]411
416 [139](A$[178]""[176]A$[178]"CMD")[175]Q[178]38[167]Q[178]1:A[178]A[171]15:[137]411
417 [139]A$[178]""[175]Q[178]1[175]A[178]15[167]Q[178]38:A[178]16:[137]411
418 [139]A$[178]""[175]Q[178]38[175]A[178]30[167]Q[178]1:A[178]1:[137]411
419 [139]A$[178]""[167]A[178]A[170]1:[137]411
420 [139]A$[178]"ON"[175]Q[178]1[175]A[178]1[167]Q[178]38:A[178]30:[137]411
421 [139]A$[178]"ON"[175]Q[178]38[175]A[178]16[167]A[178]15:Q[178]1:[137]411
422 [139]A$[178]"ON"[167]A[178]A[171]1:[137]411
423 [139][194](203)[178]63[167]298
424 [137]411
425 [139]T$(A)[178]"----------------"[167]298
426 X$[178]T$(A):F%[178]1:S$[178]"5000":[141]1103:[137]298
1000 [143]
1001 [143] DISKSTATUS
1002 [143]
1003 [159]1,8,15:[132]1,G,A$,Q,Z:[160]1:[142]
1100 [143]
1101 [143] LADEN
1102 [143]
1103 [151]53265,11:[151]53269,0:[141]1403:AA[178]G:[141]1207
1104 [158]57812 X$[170]"*",GA:[151]780,0:[151]781,AL:[151]782,AH:[158]65493
1105 [139]F%[178]0[167]1199
1106 F$[178]X$:EE[178][194](175)[172]256[170][194](174)[171]880:T$[178]""
1107 G[178](EE[171]AA[171]40)[173]40:A$[178][196](G):A$[178][201](A$,[195](A$)[171]1):E$[178]"":[129]G[178][195](A$)[164]5
1108 E$[178]E$[170]"0":[130]:E$[178]E$[170]A$:[129]G[178]1[164]8:Q[178][194](20479[170]G):T$[178]T$[170][199](Q[170]64):[130]
1109 [139][194](20488)[178]49[167]C[178]2:[151]53272,29:[137]1199
1110 [151]53272,24:C[178]1
1199 [151]53269,255:[142]
1200 [143]
1201 [143] X/Y SPEICHERN
1202 [143]
1203 [158]57812 X$,GA:[151]174,EL:[151]175,EH:[151]193,AL:[151]194,AH:[158]62957:[142]
1204 [143]
1205 [143] LO/HI AUFSPALTEN
1206 [143]
1207 G[178]AA[173]256:AH[178][181](G):AL[178](G[171][181](G))[172]256
1208 G[178]EA[173]256:EH[178][181](G):EL[178](G[171][181](G))[172]256:[142]
1300 [143]
1301 [143] SCREEN INIT
1302 [143]
1303 [151]53281,F(1):[151]53280,F(2):[151]646,F(3):[129]G[178]1[164]8:[151]53286[170]G,F(4)
1304 [130]:[142]
1400 [143]
1401 [143] HEX -> DEZ
1402 [143]
1403 G[178]0:[129]Q[178]1[164][195](S$):Z[178][198]([202](S$,Q))[171]48:G[178]G[172]16[170]Z[170]7[172](Z[177]9):[130]:[142]
1500 [143]
1501 [143] SPRITES
1502 [143]
1503 [129]G[178]1[164]8:A$[178][202](T$,G,1):Q[178][198](A$)[171]64:[139]Q[177]26[167]Q[178]27
1504 [151]2039[170]G,Q[170]223:[130]
1505 [129]G[178]1[164]8:[151]53246[170]G[172]2,24[172]G[170]63:[151]53247[170]G[172]2,228:[130]:[151]53269,255
1506 [142]
1600 [143]
1601 [143] LINE/PAGE
1602 [143]
1603 [151]211,2:[151]214,22:[158]58732:[153]"STOP(null)RIGHT$(null)VAL"[163]34)"(null)VAL(null)(null)WAITPOKE"
1604 G[178](V[171]20520)[173]40:A$[178][196](G):A$[178][201](A$,[195](A$)[171]1):X$[178]"":[129]G[178][195](A$)[164]5
1605 X$[178]X$[170]"0":[130]:X$[178]X$[170]A$:[151]211,1:[151]214,23:[158]58732:[153]X$[163]33)E$
1609 [142]
1700 [143]
1701 [143] INPUT
1702 [143]
1703 [151]211,X%:[151]214,Y%:[158]58640:[129]G[178]1[164]L%:[153]"^WAIT";:[130]:X$[178]""
1705 [151]211,X%:[151]214,Y%:[158]58640
1706 [146]198,1:[161]A$:[151]198,0:[139][194](203)[178]63[167]100
1707 [139]A$[178][199](20)[167]1720
1708 [139]A$[178][199](13)[167]1725
1709 [139][195](X$)[178]L%[167]1706
1710 [139]F%[178]2[175](A$[179]"0"[176]A$[177]"9")[175](A$[179]"A"[176]A$[177]"F")[167]1706
1711 [139]F%[178]1[175](A$[179]"0"[176]A$[177]"9")[167]1706
1712 :[139]A$[179][199](32)[176]A$[177][199](218)[167]1706
1713 [139]A$[177][199](95)[175]A$[179][199](193)[167]1706
1714 [153]A$;:X$[178]X$[170]A$:[137]1706
1720 [139]X$[178]""[167]1706
1721 [139][195](X$)[178]1[167]X$[178]"":[137]1723
1722 X$[178][200](X$,[195](X$)[171]1)
1723 [153][199](157);"^WAIT";[199](157);
1724 [137]1706
1725 [139]X$[178]""[167]1706
1726 [142]
2000 [143]
2001 [143] PUBLICATION READER V8.1
2002 [143]   DONE ON 02/01/1997
2003 [143]         BY
2004 [143] ZEITGEIST/CIVITA/WILLOW
2005 [143]
9999 [151]53269,0:[151]53272,23:[153]"LOAD":[128]